home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 8
/
CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso
/
pc
/
mac
/
__intere
/
the_magi.c_s
/
card_4589.txt
< prev
next >
Wrap
Text File
|
1990-10-06
|
3KB
|
147 lines
-- card: 4589 from stack: in.c_s
-- bmap block id: 3899
-- flags: 0000
-- background id: 4234
-- name: Secret
----- HyperTalk script -----
on openCard
global se,cn
if se = "OK" then
lock screen
hide card field "Hider"
unlock screen with visual iris open
put "" into se
put 1 into cn
else
beep
go to card 1
end if
end openCard
on closeCard
show card field "Hider"
end closeCard
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=17 top=27 right=60 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
lock screen
show card field "Hider"
go to card 1
unlock screen with visual dissolve
end mouseUp
-- part 1 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hider
-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=455 top=191 right=237 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global cn
if cn is 3 then
answer "Can’t you take a hint?" with "I guess not."
end if
if cn is 2 then
answer "Don’t click there, either." with "Ok, ok!"
put cn+1 into cn
end if
if cn is 1 then
answer "Don’t click there." with "Sorry"
put cn+1 into cn
end if
end mouseUp
-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=63 top=30 right=57 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global cn
if cn is 3 then
answer "Can’t you take a hint?" with "I guess not."
end if
if cn is 2 then
answer "Don’t click there, either." with "Ok, ok!"
put cn+1 into cn
end if
if cn is 1 then
answer "Don’t click there." with "Sorry"
put cn+1 into cn
end if
end mouseUp
-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=486 top=311 right=332 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global cn
if cn is 3 then
answer "Can’t you take a hint?" with "I guess not."
end if
if cn is 2 then
answer "Don’t click there, either." with "Ok, ok!"
put cn+1 into cn
end if
if cn is 1 then
answer "Don’t click there." with "Sorry"
put cn+1 into cn
end if
end mouseUp